home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / games / mac / __adventureland__ / __adventure_helpers__ / dungeon_mastery_2_0 / dm_reference / card_8632.txt < prev    next >
Text File  |  1992-05-24  |  5KB  |  185 lines
  1. -- card: 8632 from stack: in
  2. -- bmap block id: 18404
  3. -- flags: 0000
  4. -- background id: 8433
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on closecard
  8.   if the visible of cd btn "OK" is true then send mouseup to cd btn "OK"
  9.   if the showpict of this card is false then closehelp "Equipment Help"
  10. end closecard
  11.  
  12.  
  13.  
  14. -- part 1 (field)
  15. -- low flags: 81
  16. -- high flags: 2002
  17. -- rect: left=33 top=179 right=331 bottom=418
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 21
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Equipment Help
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 80
  30. -- high flags: C002
  31. -- rect: left=33 top=162 right=180 bottom=418
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Equipment Help
  40.  
  41.  
  42. -- part 3 (button)
  43. -- low flags: 80
  44. -- high flags: 0001
  45. -- rect: left=37 top=166 right=176 bottom=47
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Close box
  54. ----- HyperTalk script -----
  55. on mousedown
  56.   set the hilite of me to true
  57.   set the icon of me to "closeboxstar"
  58. end mousedown
  59.  
  60. on mouseStillDown
  61.   if the mouseLoc is within the rect of me then
  62.     set the hilite of me to true
  63.     set the icon of me to "closeboxstar"
  64.   else
  65.     set the icon of me to 0
  66.     set the hilite of me to false
  67.   end if
  68. end mouseStillDown
  69.  
  70. on mouseUp
  71.   global rtncd
  72.   set the icon of me to 0
  73.   set the hilite of me to false
  74.   lock screen
  75.   put empty into field "Cat4"
  76.   put empty into field "Name4"
  77.   show card picture
  78.   show card field "Equip Index"
  79.   closehelp "Equipment Help"
  80.   unlock screen with zoom close
  81. end mouseUp
  82.  
  83.  
  84.  
  85. -- part 4 (button)
  86. -- low flags: 00
  87. -- high flags: 0000
  88. -- rect: left=20 top=50 right=342 bottom=402
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: Obscure 1
  97.  
  98.  
  99. -- part 7 (field)
  100. -- low flags: 81
  101. -- high flags: 2002
  102. -- rect: left=49 top=75 right=317 bottom=409
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 0
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: Preferences
  111.  
  112.  
  113. -- part 6 (field)
  114. -- low flags: 01
  115. -- high flags: 0000
  116. -- rect: left=326 top=123 right=308 bottom=403
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 21
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 14
  124. -- part name: Equip Index
  125. ----- HyperTalk script -----
  126. on mousedown
  127.   visual wipe left
  128.   go to card line clkln() of me
  129. end mousedown
  130.  
  131.  
  132. -- part 8 (button)
  133. -- low flags: 80
  134. -- high flags: A002
  135. -- rect: left=117 top=288 right=306 bottom=188
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: OK
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   global hldcd,EquipMenu
  147.   lock screen
  148.   hide me
  149.   hide card field "Preferences"
  150.   set the locktext of cd field "Equip Index" to true
  151.   set the Style of cd field "Equip Index" to transparent
  152.   set the showlines of cd field "Equip Index" to false
  153.   go to hldcd
  154.   unlock screen with visual zoom close
  155.   put cd fld "Equip Index" of cd 1 of this bg into EquipMenu
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part contents for background part 180
  161. ----- text -----
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169. -- part contents for card part 1
  170. ----- text -----
  171. This section can be used to describe equipment and supplies (like a general store). The box beside the title space is actually a pop-up menu for general categorization of the items described (Armory, Supply, Potion...). You can modify this menu by selecting 
  172. ΓÇ£Preferences...ΓÇ¥ from the DM menu. DonΓÇÖt worry if fields become unaligned, itΓÇÖs only temporary. If you can't fit your entire description on a single line, add extra returns between entries to make room for notes. Also, you can click on any index entry on the Equipment Title Card to go directly to that category (if one is available).
  173.  
  174. -- part contents for card part 6
  175. ----- text -----
  176. Armory
  177. Potions
  178. Supply
  179.  
  180. -- part contents for card part 7
  181. ----- text -----
  182.                Equipment Reference Preferences
  183.  
  184.          Edit the category         Categories:
  185.          pop-up menu...